Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Herois/Codigo.Cst/00128_Verbetes- Numero do Verbete.ls

Text File | 1999-03-19 | 482 b | 22 lines

property spr, mem

on beginSprite me
  set spr = the spriteNum of me
  set mem = the member of sprite spr
  set texto = the text of member mem
end

on mouseUp me
  set the editable of sprite spr to true
end

on keyUp me
  set k = the key
  if charToNum(k) = 13 then
    global gVerbeteUltimo
    set tmp = Integer(the text of member mem) + 9999
    if tmp < 10000 then set tmp = 10000
    else if tmp > gVerbeteUltimo then set tmp = gVerbeteUltimo
    vaiVerbete(tmp,1)
  end if
end